home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
vbgui10
/
form5.frm
< prev
next >
Wrap
Text File
|
1998-01-26
|
1KB
|
57 lines
VERSION 5.00
Begin VB.Form Form5
BackColor = &H00FFFFFF&
Caption = "Picture Box Line Demo"
ClientHeight = 4695
ClientLeft = 1500
ClientTop = 1785
ClientWidth = 6045
DrawWidth = 3
LinkTopic = "Form5"
ScaleHeight = 4695
ScaleWidth = 6045
Begin VB.Menu l1
Caption = "Lines"
End
Begin VB.Menu l2
Caption = "&Pixels"
End
Begin VB.Menu l3
Caption = "&Boxes"
End
Begin VB.Menu l5
Caption = "&Solid"
End
Begin VB.Menu l4
Caption = "&Clear Screen"
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub l1_Click()
For l = 1 To 1500
Line -(Rnd * 6000 + 80, Rnd * 5000 + 80), QBColor(Rnd * 14 + 1)
Next l
End Sub
Private Sub l2_Click()
For p = 1 To 6000
PSet (Rnd * 6000, Rnd * 6000), QBColor(Rnd * 14 + 1)
Next p
End Sub
Private Sub l3_Click()
For B = 1 To 1500
Line -(Rnd * 6000, Rnd * 5000), QBColor(Rnd * 14 + 1), B
Next B
End Sub
Private Sub l4_Click()
Form5.Cls
End Sub
Private Sub l5_Click()
For c = 1 To 700
Line -(Rnd * 6000, Rnd * 5000), QBColor(Rnd * 14 + 1), BF
Next c
End Sub